Class {
	#name : 'ClyAllClassesQueryTest',
	#superclass : 'ClyClassQueryTest',
	#category : 'Calypso-SystemQueries-Tests-Queries',
	#package : 'Calypso-SystemQueries-Tests',
	#tag : 'Queries'
}

{ #category : 'running' }
ClyAllClassesQueryTest >> createQuery [
	^ ClyAllClassesQuery from: ClyClassScope of: Object in: environment
]

{ #category : 'tests' }
ClyAllClassesQueryTest >> testCheckIfEmpty [
	query scope: (ClyClassScope of: ClyClass1FromP1Mock in: environment).

	self deny: query checkEmptyResult
]

{ #category : 'tests' }
ClyAllClassesQueryTest >> testFromSinglePackage [

	self queryFromScope: ClyPackageScope of: ClyClass1FromP1Mock package.

	self assert: resultItems asSet equals: ClyClass1FromP1Mock package definedClasses.
	self deny: (resultItems includes: ClySubclassLOfClass0FromPExtendedByP1Mock)
]
